source('D:/OneDrive/Home/Projetos/artigos/revistas_contexto_final/R/data-prep/01.R')
library(tidyr)

# Cleaning OG (-Meridiano47)
data %>%
  filter(SO != "Meridiano 47 - Journal of Global Studies") %>%
  separate_rows(OG, sep = ';') %>%
  mutate(
    OG = str_trim(OG),
    OG = case_when(
      str_detect(OG, "Universidade Federal do Rio Grande do Sul") ~ "UFRGS",
      str_detect(OG,"Universidade Federal de São Paulo") ~ "UNIFESP",
      str_detect(OG,"Estado-Maior do Exército") ~ "ECEME",
      str_detect(OG, "Federal Fluminense") ~ "UFF",
      str_detect(OG, "Moscow State University") ~ "MSU",
      str_detect(OG,"Federal de Pelotas") ~ "UFPEL",
      str_detect(OG,"Oeste da Bahia") ~ "UFOB",
      str_detect(OG, "Universitas Muhammadiyah Yogyakarta") ~ "Universitas Muhammadiyah Yogyakarta",
      str_detect(OG,"Federal do Rio de Janeiro") ~ "UFRJ",
      str_detect(OG,"Instituto Sul-Americano de Política e Estratégia") ~ "ISAPE",
      str_detect(OG,"University of Moscow") ~ "University of Moscow",
      str_detect(OG,"UFRGS") ~ "UFRGS",
      str_detect(OG,"ECEME") ~ "ECEME",
      str_detect(OG,"INMETRO") ~ "INMETRO",
      str_detect(OG,"UFU") ~ "UFU",
      str_detect(OG,"Escola de Comando e") ~ "ECEME",
      str_detect(OG,"Universidad Nacional de Asuncion") ~ "Universidad Nacional de Asunción",
      str_detect(OG,"Anhembi Morumbi") ~ "Anhembi Morumbi",
      str_detect(OG,"Kazimierz Wielki University") ~ "Kazimierz Wielki University",
      str_detect(OG,"American University of Central Asia") ~ "American University of Central Asia",
      str_detect(OG,"PUCMINAS") ~ "PUC/MG",
      str_detect(OG,"UEPB") ~ "UEPB",
      str_detect(OG,"Universidade Nova de Lisboa") ~ "NOVA",
      str_detect(OG,"SNSPA") ~ "SNSPA",
      str_detect(OG,"Universidad Autônoma de Madrid") ~ "UAM",
      str_detect(OG,"Federal University of Rio de Janeiro") ~ "UFRJ",
      str_detect(OG,"Instituto de Estudos Políticos UNIVERSIDADE") ~ "UCP",
      str_detect(OG,"CIPI") ~ "CIPI",
      str_detect(OG,"Universitas Negeri Makassar") ~ "UNM",
      str_detect(OG,"Universidade Estadual Paulista") ~ "UNESP",
      str_detect(OG,"Escola de Guerra Naval") ~ "EGN",
      str_detect(OG,"Universidad Nacional de San Martín") ~ "Universidad Nacional de San Martín",
      str_detect(OG,"FLACSO-Ecuador") ~ "FLACSO-Ecuador",
      str_detect(OG,"Kazakh Turkish University") ~ "Kazakh Turkish University",
      str_detect(OG,"Universidade Estadual da Paraíba") ~ "UEPB",
      str_detect(OG,"UCAM") ~ "UCAM",
      str_detect(OG,"University of New England") ~ "University of New England",
      str_detect(OG,"Federal University of São Paulo") ~ "UNIFESP",
      str_detect(OG,"Universidade de Brasília") ~ "UnB",
      str_detect(OG,"Universidade Federal Rural do Rio de Janeiro") ~ "UFRRJ",
      str_detect(OG,"RSP College") ~ "RSP College",
      str_detect(OG,"Universidade Fumec") ~ "FUMEC",
      str_detect(OG,"UFMG") ~ "UFMG",
      str_detect(OG,"Universidade Federal de Juiz de Fora") ~ "UFJF",
      str_detect(OG,"Universidade Federal de Viçosa") ~ "UFV",
      str_detect(OG,"Federal University of Minas") ~ "UFMG",
      str_detect(OG,"Universidade Federal da Bahia") ~ "UFBA",
      str_detect(OG,"JNU") ~ "JNU",
      str_detect(OG,"Uni-CV") ~ "Universidade de Cabo Verde",
      str_detect(OG,"UNIPAMPA") ~ "UNIPAMPA",
      str_detect(OG,"Federal University of Pampa") ~ "UNIPAMPA",
      str_detect(OG,"UNISC") ~ "UNISC",
      str_detect(OG,"University of Santa Cruz do Sul") ~ "UNISC",
      str_detect(OG,"Catholic University of Portugal") ~ "UCP",
      str_detect(OG,"Federal University of Rio Grande do Sul") ~ "UFRGS",
      str_detect(OG,"Rio de Janeiro State University") ~ "UERJ",
      str_detect(OG,"UFRRJ") ~ "UFRRJ",
      str_detect(OG,"Candido Mendes") ~ "Universidade Cândido Mendes",
      str_detect(OG,"UFABC") ~ "UFABC",
      str_detect(OG,"Universidade Federal do ABC") ~ "UFABC",
      str_detect(OG,"UniBH") ~ "UniBH",
      str_detect(OG,"PEPI") ~ "UFRJ",
      str_detect(OG,"University of Ibadan") ~ "University of Ibadan",
      str_detect(OG,"UFPB") ~ "UFPB",
      str_detect(OG,"Universidade Federal de Pernambuco") ~ "UFPE",
      str_detect(OG,"Universidade Federal de Uberlândia") ~ "UFU",
      str_detect(OG,"IBECAP") ~ "IBECAP",
      str_detect(OG,"PUC Minas") ~ "PUC/MG",
      str_detect(OG,"FACAMP") ~ "FACAMP",
      str_detect(OG,"Faculdades de Campinas") ~ "FACAMP",
      str_detect(OG,"Universidade de Santa Cruz do Sul") ~ "UNISC",
      str_detect(OG,"UFSCar") ~ "UFSCar",
      str_detect(OG,"Universidade Federal de São Carlos ") ~ "UFSCar",
      str_detect(OG,"St. Andrew's University") ~ "St. Andrew's University",
      str_detect(OG,"Universidade Federal de Santa Maria") ~ "UFSM",
      str_detect(OG,"UFSM") ~ "UFSM",
      str_detect(OG,"Universidade Federal do Pampa") ~ "UNIPAMPA",
      str_detect(OG,"CADIC") ~ "CADIC",
      str_detect(OG,"UNIPAMPA") ~ "UNIPAMPA",
      str_detect(OG,"Universidad de Buenos Aires") ~ "UBA",
      str_detect(OG,"UBA") ~ "UBA",
      str_detect(OG,"Universidad Nacional de Rosario") ~ "UNR",
      str_detect(OG,"UNR") ~ "UNR",
      str_detect(OG,"IFRS") ~ "IFRS",
      str_detect(OG,"USP") ~ "USP",
      str_detect(OG,"Universidade de São Paulo") ~ "USP",
      str_detect(OG,"Metropolitan University Prague") ~ "Metropolitan University Prague",
      str_detect(OG,"Universidade Federal de Santa Catarina") ~ "UFSC",
      str_detect(OG,"Defence Studies King") ~ "King's College London",
      str_detect(OG,"ISRA") ~ "ISRA",
      str_detect(OG,"ZNA") ~ "ZNA",
      str_detect(OG,"GIGA") ~ "GIGA",
      str_detect(OG,"German Institute of Global and Area Studies") ~ "GIGA",
      str_detect(OG,"Metrology Quality") ~ "INMETRO",
      str_detect(OG,"UdeG") ~ "UdeG",
      str_detect(OG,"Universidad de Guadalajara") ~ "UdeG",
      str_detect(OG,"UNISA") ~ "UNISA",
      str_detect(OG,"Pontifícia Universidade Católica de Minas Gerais") ~ "PUC/MG",
      str_detect(OG,"UNISINOS") ~ "UNISINOS",
      str_detect(OG,"UNILA") ~ "UNILA",
      str_detect(OG,"Universidade Federal da Integração Latino-americana") ~ "UNILA",
      str_detect(OG,"San Tiago Dantas") ~ "PPGRI San Tiago Dantas",
      str_detect(OG,"Universidade Presbiteriana Mackenzie") ~ "Universidade Presbiteriana Mackenzie",
      str_detect(OG,"PUC-SP") ~ "PUC/SP",
      str_detect(OG,"CONICET") ~  "CONICET",
      str_detect(OG,"Universidade Virtual do Estado de São Paulo") ~  "UNIVESP",
      str_detect(OG,"Universidade Federal da Paraíba") ~  "UFPB",
      str_detect(OG,"UFPB") ~  "UFPB",
      str_detect(OG,"PUC MINAS") ~  "PUC/MG",
      str_detect(OG,"Universidade Federal da Integração Latino-Americana") ~  "UNILA",
      str_detect(OG,"Autônoma de Puebla") ~  "Benemérita Universidad Autônoma de Puebla",
      str_detect(OG,"Sun Yat-sen University") ~  "Sun Yat-sen University",
      str_detect(OG,"Centro Universitário Ritter dos Reis") ~  "UniRitter",
      str_detect(OG,"IESP") ~  "UERJ",
      str_detect(OG,"Universidad Veracruzana") ~  "Universidad Veracruzana",
      str_detect(OG,"Unesp-Marília") ~  "UNESP",
      str_detect(OG,"Universidade Estadual do Rio de Janeiro") ~  "UERJ",
      str_detect(OG,"Universidade Estadual de Campinas") ~  "UNICAMP",
      str_detect(OG,"FATEC-Ourinhos") ~  "FATEC",
      str_detect(OG,"University of São Paulo") ~  "USP",
      str_detect(OG,"Unieuro") ~  "UNIEURO",
      str_detect(OG,"Pontifícia Universidade do Paraná") ~  "PUC/PR",
      str_detect(OG,"UNIVERSIDADE PRESBITERIANA MACKENZIE") ~  "Universidade Presbiteriana Mackenzie",
      str_detect(OG,"UFGD") ~  "UFGD",
      str_detect(OG,"National University of Rosario") ~  "UNR",
      str_detect(OG,"Unesp/Marília") ~  "UNESP",
      str_detect(OG,"Universidade Estadual da paraíba") ~  "UEPB",
      str_detect(OG,"UNIVERSIDADE FEDERAL DE UBERLÃNDIA") ~  "UFU",
      str_detect(OG,"Universidade do Minho") ~  "Universidade do Minho",
      str_detect(OG,"Universidade Federal do Rio Grandes do Sul") ~  "UFRGS",
      str_detect(OG,"Fundação Getulio Vargas") ~  "FGV",
      str_detect(OG,"CONICET") ~  "CONICET",
      str_detect(OG,"Unesp Marília") ~  "UNESP",
      str_detect(OG,"PUCRS") ~  "PUC/RS",
      str_detect(OG,"Universidade Federal de Sergipe") ~  "UFS",
      str_detect(OG,"Unifesp") ~  "UNIFESP",
      str_detect(OG,"Unesp") ~  "UNESP",
      str_detect(OG,"UFGD/Unicamp") ~  "UFGD",
      str_detect(OG,"UnB") ~  "UnB",
      str_detect(OG, "CEPESE") ~  "CEPESE",
      str_detect(OG, "FUNIF") ~  "FUNIF",
      str_detect(OG, "UniRitter") ~  "UniRitter",
      str_detect(OG, "PUC-Rio") ~  "PUC/RIO",
      str_detect(OG, "Universidad Estadual de Campinas") ~  "UNICAMP",
      str_detect(OG, "UNESP - Franca") ~  "UNESP",
      str_detect(OG, "UNESP Marília") ~  "UNESP",
      str_detect(OG, " UnB") ~  "UnB",
      str_detect(OG, "ESG") ~  "ESG",
      str_detect(OG, "Brazilian War College") ~  "ESG",
      str_detect(OG, "PPGEM/EGN") ~  "EGN",
      str_detect(OG, "PPGEST-INEST/UFF") ~  "UFF",
      str_detect(OG, "Universidade Federal do Paraná") ~  "UFPR",
      str_detect(OG, "UFPR") ~  "UFPR",
      str_detect(OG, "UNIVERSIDADE FEDERAL DA BAHIA") ~  "UFBA",
      str_detect(OG, "UFBA") ~  "UFBA",
      str_detect(OG, "Pontificia Universidade Católica de Minas Gerais") ~  "PUC/MG",
      str_detect(OG, "Universidade do Estado do Rio de Janeiro") ~  "UERJ",
      str_detect(OG, "UFFS") ~  "UFFS",
      str_detect(OG, "Universidade Federal da Fronteira Sul") ~  "UFFS",
      str_detect(OG, "Instituto Nacional de Metrologia") ~  "INMETRO",
      str_detect(OG, "UERJ") ~  "UERJ",
      str_detect(OG, "UFPE/Doutorando em Ciência Política.") ~  "UFPE",
      str_detect(OG, "UFPE") ~  "UFPE",
      str_detect(OG, "Instituto de Estudos Estratégicos") ~  "UFF",
      str_detect(OG, "Pontificia Universidade Católica do Rio de Janeiro") ~  "PUC/RIO",
      str_detect(OG, "Universidade Federal de Goiás") ~  "UFG",
      str_detect(OG, "UFG") ~  "UFG",
      str_detect(OG, "IREL/UnB") ~  "UnB",
      str_detect(OG, "UNB") ~  "UnB",
      str_detect(OG, "Instituto de Relações Internacionais da Pontifícia") ~ "PUC/RIO",
      str_detect(OG, "Universidade Federal da Grande Dourados") ~ "UFGD",
      str_detect(OG, "Instituto de Relações Internacionais e Defesa") ~ "UFRJ",
      str_detect(OG, "IRID") ~ "UFRJ",
      str_detect(OG, "Unicamp") ~ "UNICAMP",
      str_detect(OG, "Fundação Getúlio Vargas") ~ "FGV",
      str_detect(OG, "Universidad de Cantabria") ~ "Universidad de Cantabria",
      str_detect(OG, "Universidade de Campinas") ~ "UNICAMP",
      str_detect(OG, "UNIR") ~ "UNIR",
      str_detect(OG, "INPG") ~ "INPG",
      str_detect(OG, "Universidade do Povo da China") ~ "Universidade do Povo da China",
      str_detect(OG, "FIOCRUZ") ~ "FIOCRUZ",
      str_detect(OG, "UFSC") ~ "UFSC",
      str_detect(OG, "Bacharel em Relações Internacionais UNIFESP") ~ "PPGRI Santiago Dantas",
      str_detect(OG, "Universidade Católica de Brasília") ~ "PUC/Brasília",
      str_detect(OG, "Universidade de Rosário") ~ "Universidade de Rosário",
      str_detect(OG, "Anehmbia") ~ "Anhembi Morumbi",
      str_detect(OG, "Universidade Federal de Minas Gerais") ~ "UFMG",
      str_detect(OG, "Pontifícia Universidade Católica de Monas Gerais") ~ "PUC/MG",
      str_detect(OG, "Pontifícia Universidade Católica do Rio de Janeiro") ~ "PUC/RIO",
      str_detect(OG, "UNIVERSIDADE DE BRASILIA") ~ "UnB",
      str_detect(OG, "Universidade de Lisboa") ~ "Universidade de Lisboa",
      str_detect(OG, "Ministério das Relações Exteriores") ~ "MRE",
      str_detect(OG, "UCL-Mons") ~ "UCL",
      str_detect(OG, "Universidade do Grande Rio") ~ "UNIGRANRIO",
      str_detect(OG, "Ministerio das Relacoes Exteriores") ~ "MRE",
      str_detect(OG, "Pontifícia Universidade Católica do Paraná") ~ "PUC/PR",
      str_detect(OG, "Iesp-Uerj") ~ "UERJ",
      str_detect(OG, "CPDOC/Fundação Getúlio Vargas") ~ "FGV",
      str_detect(OG, "Universidade Vila Velha") ~ "UVV",
      str_detect(OG, "UVV") ~ "UVV",
      str_detect(OG, "Universidade Federal do Espírito Santo") ~ "UFES",
      str_detect(OG, "UFES") ~ "UFES",
      str_detect(OG, "UFT") ~ "UFT",
      str_detect(OG, "Universidade Federal do Tocantins") ~ "UFT",
      str_detect(OG, "Centro Universitário Belas Artes") ~ "Centro Universitário Belas Artes",
      str_detect(OG, "Universidade Federal de Roraima") ~ "UFRR",
      str_detect(OG, "UFRR") ~ "UFRR",
      str_detect(OG, "Université Paris VIII") ~  "Université Paris VIII",
      str_detect(OG, "Pontifícia Universidade Católica de Goiás") ~ "PUC/GO",
      str_detect(OG, "PUC-Minas") ~ "PUC/MG",
      str_detect(OG, "Universidade do Estado de Mato Grosso") ~ "UNEMAT",
      str_detect(OG, "UNEMAT") ~ "UNEMAT",
      str_detect(OG, "CERAW") ~ "CERAW",
      str_detect(OG, "Universidade de Fortaleza") ~ "UNIFOR",
      str_detect(OG, "UNIFOR") ~ "UNIFOR",
      str_detect(OG, "Intendencia Municipal de Montevideo") ~ "Intendencia Municipal de Montevideo",
      str_detect(OG, "Universidade Federal do Rio Grande") ~ "FURG",
      str_detect(OG, "FURG") ~ "FURG",
      str_detect(OG, "UFPel") ~ "UFPEL",
      str_detect(OG, "Univesidade de Brasília") ~ "UnB",
      str_detect(OG, "FLACSO-Argentina") ~  "FLACSO-Argentina",
      str_detect(OG, "NMBU") ~ "NMBU",
      str_detect(OG, "PRIO") ~ "PRIO",
      str_detect(OG, "Peace Research Institute Oslo") ~ "PRIO",
      str_detect(OG, "Norwegian Centre for Humanitarian Studies") ~  "Norwegian Centre for Humanitarian Studies",
      str_detect(OG, "Universidade de Cambridge") ~  "Universidade de Cambridge",
      str_detect(OG, "CGI.br") ~  "CGI.br",
      str_detect(OG, "ESPM") ~  "ESPM",
      str_detect(OG, "PUC-MINAS") ~  "PUC/MG",
      str_detect(OG, "Universidad J.K. Kennedy") ~  "Universidad J.K. Kennedy",
      str_detect(OG, "Shahjalal University of Science") ~  "Shahjalal University of Science and Technology",
      str_detect(OG, "Centro Universitario La Salle") ~  "Unilasalle",
      str_detect(OG, "Unilasalle") ~  "Unilasalle",
      str_detect(OG, "PUC-RS") ~  "PUC/RS",
      str_detect(OG, "Centro Universitário do Distrito Federal") ~  "Centro Universitário do Distrito Federal",
      str_detect(OG, "Universidad Nacional de Colombia") ~  "Universidad Nacional de Colombia",
      str_detect(OG, "Pontifícia Universidade Católica do Rio Grande do Sul") ~  "PUC/RS",
      str_detect(OG, "Universidade Federal do Sergipe") ~ "UFS",
      str_detect(OG, "Universidade Federal do Recôncavo") ~ "UFRB",
      str_detect(OG, "UFRB") ~ "UFRB",
      str_detect(OG, "Fapam") ~  "FAPAM",
      str_detect(OG, "Fundação Pedro Leopoldo") ~  "Fundação Pedro Leopoldo",
      str_detect(OG, "UNICURITIBA") ~ "UNICURITIBA",
      str_detect(OG, "Centro Universitário Curitiba") ~ "UNICURITIBA",
      str_detect(OG, "Faculdades Metropolitanas Unidas") ~ "FMU",
      str_detect(OG, "IPEA") ~  "IPEA",
      str_detect(OG, "Universidade São Tomas de Moçambique") ~ "Universidade São Tomas de Moçambique",
      str_detect(OG, "IFNMG") ~ "IFNMG",
      str_detect(OG, "Instituto Federal do  Norte de Minas") ~ "Instituto Federal do  Norte de Minas",
      str_detect(OG, "Instituto Superior Politécnico de Gaza") ~ "Instituto Superior Politécnico de Gaza",
      str_detect(OG, "Universidade Estadual da Paraiba") ~ "UEPB",
      str_detect(OG, "Pontíficia Universidade Católica de Minas Gerais") ~ "PUC/MG",
      str_detect(OG, "Leuphana University Lüneburg") ~ "Leuphana University Lüneburg",
      str_detect(OG, "ufsc") ~ "UFSC",
      str_detect(OG, "universidade federal de santa catarina") ~ "UFSC",
      str_detect(OG, "Uppsala University") ~ "Uppsala University",
      str_detect(OG, "Aberystwyth University") ~ "Aberystwyth University",
      str_detect(OG, "PUCMG") ~ "PUC/MG",
      str_detect(OG, "Puc-Rio") ~ "PUC/RIO",
      str_detect(OG, "Pontifícia Universidade Católica de Minas Ferais") ~ "PUC/MG",
      str_detect(OG, "Haigazian University") ~ "Haigazian University",
      str_detect(OG, "Universidad Nacional de Asunción") ~ "Universidad Nacional de Asunción",
      str_detect(OG, "Universidade Paulista Julio de Mesquita Ffilho") ~ "UNESP",
      str_detect(OG, "University of Gothenburg") ~ "University of Gothenburg",
      str_detect(OG, "University of Hawai") ~ "University of Hawai",
      str_detect(OG, "UFF") ~ "UFF",
      str_detect(OG, "Fluminense Federal University") ~ "UFF",
      str_detect(OG, "UNIP") ~ "UNIP",
      str_detect(OG, "Pontifical Catholic University of Minas Gerais") ~ "PUC/MG",
      str_detect(OG, "Paulista University") ~ "UNIP",
      str_detect(OG, "FGV") ~ "FGV",
      str_detect(OG, "Getúlio Vargas Foundation") ~ "FGV",
      str_detect(OG, "Vale do Ribeira") ~ "UNIVR",
      str_detect(OG, "IIEP") ~ "IIEP",
      str_detect(OG, "Instituto Interdisciplinario de Economía Política") ~ "IIEP",
      str_detect(OG, "UNM") ~ "UNM",
      str_detect(OG, "Universidad Nacional de Moreno") ~ "Universidad Nacional de Moreno",
      str_detect(OG, "London School of Economics and Political Science") ~ "LSE",
      str_detect(OG, "LSE") ~ "LSE",
      str_detect(OG, "Birkbeck University") ~ "Birkbeck University",
      str_detect(OG, "SOAS") ~ "SOAS",
      str_detect(OG, "School of Oriental and African Studies") ~ "SOAS",
      str_detect(OG, "Womankind Worldwide") ~ "Womankind Worldwide",
      str_detect(OG, "Getúlio Vargas Foundation") ~ "FGV",
      str_detect(OG, "Pontifical Catholic University of Rio de Janeiro") ~ "PUC/RIO",
      str_detect(OG, "PUC-RJ") ~ "PUC/RIO",
      str_detect(OG, "FLACSO") ~ "FLACSO",
      str_detect(OG, "Rutgers University") ~ "Rutgers University",
      str_detect(OG, "College London") ~ "King's College London",
      str_detect(OG, "PUC/RIO") ~ "PUC/RIO",
      str_detect(OG, "Meira Mattos Institute") ~ "Instituo Meira Mattos",
      str_detect(OG, "Federal University of São Carlos") ~ "UFSCar",
      str_detect(OG, "Federal University of Amapá") ~ "UNIFAP",
      str_detect(OG, "University of Brasilia") ~ "UnB",
      str_detect(OG, "Federal Rural University of Rio de Janeiro") ~ "UFRRJ",
      str_detect(OG, "University of Coimbra") ~ "Universidade de Coimbra",
      str_detect(OG, "Fluminense Federal University") ~ "UFF",
      str_detect(OG, "Naval War College") ~ "EGN",
      str_detect(OG, "Pontifícia Universidade Católica de São Paulo") ~ "PUC/SP",
      str_detect(OG, "Pontifical Catholic University of Minas Gerais") ~ "PUC/MG",
      str_detect(OG, "Federal University of Pernambuco") ~ "UFPE",
      str_detect(OG, "Federal University of Vale do São Francisco") ~ "UNIVASF",
      str_detect(OG, "UNIVASF") ~ "UNIVASF",
      str_detect(OG, "Federal Institute of Education, Science and Technology of G") ~ "IFGO",
      str_detect(OG, "Universidade de Stellenbosch") ~ "Universidade de Stellenbosch",
      str_detect(OG, "Instituto de Pesquisa Econômica Aplicada") ~ "IPEA",
      str_detect(OG, "University of Queensland") ~ "University of Queensland",
      str_detect(OG, "University of Waterloo") ~ "University of Waterloo",
      str_detect(OG, "Facultad Latinoamericana de Ciencias Sociales") ~ "FLACSO",
      str_detect(OG, "Centro Universitário de Belo Horizonte") ~ "UniBH",
      str_detect(OG, "Universidad de Salamanca") ~ "Universidad de Salamanca",
      str_detect(OG, "City University of New York") ~ "City University of New York",
      str_detect(OG, "Ministério da Defesa") ~ "Ministério da Defesa",
      str_detect(OG, "King's College London") ~ "King's College London",
      str_detect(OG, "República Federativa do Brasil Ministro de Estado da Defesa") ~ "Ministério da Defesa",
      str_detect(OG, "GRIALI") ~ "GRIALI",
      str_detect(OG, "Uniceub") ~ "UNICEUB",
      str_detect(OG, "University Center of Brasilia") ~ "UNICEUB",
      str_detect(OG, "CIPOD") ~ "CIPOD",
      str_detect(OG, "Open University") ~ "Open University",
      str_detect(OG, "Universidade Paris Diderot") ~ "Universidade Paris Diderot",
      str_detect(OG, "CONACYT") ~ "CONACYT",
      str_detect(OG, "República Federativa do Brasil Defesa") ~ "Ministério da Defesa",
      str_detect(OG, "Harvard University") ~ "Harvard University",
      str_detect(OG, "Universidade da Carolina do Norte") ~ "Universidade da Carolina do Norte",
      str_detect(OG, "Pontifícia Universidade Católica do Chile") ~ "Pontifícia Universidade Católica do Chile",
      str_detect(OG, "University of St Andrews") ~ "St. Andrew's University",
      str_detect(OG, "Universidade Católica do Rio de Janeiro") ~ "PUC/RIO",
      str_detect(OG, "Controladoria-Geral da União") ~ "CGU",
      str_detect(OG, "IUPERJ") ~ "IUPERJ",
      str_detect(OG, "Universidade Católica de São Paulo") ~ "PUC/SP",
      str_detect(OG, "Embaixada do Brasil em Santiago do Chile") ~ "MRE",
      str_detect(OG, "Centro Universitário de Brasília") ~ "Centro Universitário de Brasília",
      str_detect(OG, "Universidade de Buenos Aires") ~ "UBA",
      str_detect(OG,'Universidades Nacionais de Buenos Aires') ~ "UBA",
      str_detect(OG, "Universidade de Bilkent") ~ "Universidade de Bilkent",
      str_detect(OG, "Quinnipiac University") ~ "Quinnipiac University",
      str_detect(OG, "Doutora em Relações Internacionais. Professora") ~ "Anhembi Morumbi",
      str_detect(OG, "Chapman University") ~  "Chapman University",
      str_detect(OG, "University of Denver") ~ "University of Denver",
      str_detect(OG, "Sun Yat Sen University") ~  "Sun Yat-sen University",
      str_detect(OG, "Sun Yat-sen University") ~ "Sun Yat-sen University",
      str_detect(OG, "Centro Brasileiro de Análise e Planejamento") ~ "",
      str_detect(OG, "CEBRAP") ~ "CEBRAP",
      str_detect(OG, "Instituto de Estudos Políticos Universidade Católica Portugu") ~ "UCP",
      str_detect(OG, "Pontificia Universidad Católica de Chile") ~ "Pontifícia Universidade Católica do Chile",
      str_detect(OG,"National University of Public Service") ~ "National University of Public Service",
      str_detect(OG,"Shahid Rajaee") ~ "Shahid Rajaee Teacher Training University",
      str_detect(OG,"Instituto Português de Relações Internacionais. Universidad") ~ "NOVA",
      str_detect(OG,"Universidad de Los Andes") ~ "Universidad de Los Andes",
      str_detect(OG,"CEIPA") ~ "CEIPA",
      str_detect(OG,"Universidad de Chile") ~ "Universidad de Chile",
      str_detect(OG,"University of Management and Technology") ~ "University of Management and Technology",
      str_detect(OG,"Colégio Militar de Porto Alegre") ~ "Colégio Militar de Porto Alegre",
      str_detect(OG,"Coimbra") ~ "Universidade de Coimbra",
      str_detect(OG,"Columbia University") ~ "Columbia University",
      str_detect(OG,"FCT/UNESP") ~ "UNESP",
      str_detect(OG,"Universidade FEderal do Espírito Santo") ~ "UFES",
      str_detect(OG,"Centro Universitário UNI-BH") ~ "UniBH",
      str_detect(OG,"University of Warsaw") ~ "University of Warsaw",
      str_detect(OG,"Universidad de París") ~ "Université Paris VIII",
      str_detect(OG,"Universidade Federal de Campina Grande") ~ "UFCG",
      str_detect(OG,"UFCG") ~ "UFCG",
      str_detect(OG,"Ministro da Defesa") ~ "Ministério da Defesa",
      str_detect(OG,"St Andrews University") ~ "St. Andrew's University",
      str_detect(OG,"PUC Rio") ~ "PUC/RIO",
      str_detect(OG,"Universidade de Sergipe") ~ "UFS",
      str_detect(OG,"PUC SP") ~ "PUC/SP",
      str_detect(OG,"Georgetown University") ~ "Georgetown University",
      str_detect(OG,"Unisinos") ~ "UNISINOS",
      str_detect(OG,"Universidade do Estado da Bahia") ~ "UNEB",
      str_detect(OG,"UNEB") ~ "UNEB",
      str_detect(OG,"Universidade Católica de Santos") ~ "PUC/SANTOS",
      str_detect(OG,"Universidade Federal de Rondônia") ~ "UNIR",
      str_detect(OG,"UNIR") ~ "UNIR",
      str_detect(OG, "Universidade de Columbia") ~ "Columbia University",
      str_detect(OG, "Universidade de Brasíla, Faculdade de Comunicação") ~ "UnB",
      str_detect(OG, "University of Chicago") ~ "University of Chicago",
      str_detect(OG, "Departamento de Relações Internacionais, Centro Univ") ~ "Unilasalle",
      str_detect(OG, "Universidade Estadual de Maringá") ~ "UEM",
      str_detect(OG, "UEM") ~ "UEM",
      str_detect(OG, "Universidade de Cabo Verde") ~ "Universidade de Cabo Verde",
      str_detect(OG, "Panamerican University") ~ "Panamerican University",
      str_detect(OG, "Universidad Carlos III de Madrid") ~ "Universidad Carlos III de Madrid",
      str_detect(OG, "Universidade Federal do Pará") ~ "UFPA",
      str_detect(OG, "UFPA") ~ "UFPA",
      str_detect(OG, "FURB") ~ "FURB",
      str_detect(OG, "Universidade Regional de Blumenau") ~ "FURB",
      str_detect(OG, "IESE") ~ "IESE",
      str_detect(OG, "Instituto de Estudos Sociais e Econômicos") ~ "IESE",
      str_detect(OG, "SENAC") ~ "SENAC",
      str_detect(OG, "Centro Universitário Moura Lacerda") ~ "Centro Universitário Moura Lacerda",
      str_detect(OG, "Federação das Indústrias do Estado de São Paulo") ~ "FIESP",
      str_detect(OG, "FIESP") ~ "FIESP",
      str_detect(OG, "Católica de Santa Catarina") ~ "PUC/SC",
      str_detect(OG, "Universidade Federal de São Paulo") ~ "UNIFESP",
      str_detect(OG, "PucMinas") ~ "PUC/MG",
      str_detect(OG, "Universidade Estadual de Maringá") ~ "UEM",
      str_detect(OG, "Universidade de Brasilia, Brasil") ~ "UnB",
      str_detect(OG, "Université Catholique de Louvain") ~ "Université Catholique de Louvain",
      str_detect(OG, "Universidade Federal de Brasilia") ~ "UnB",
      str_detect(OG, "Fundação Escola de Sociologia e Política de São Paulo") ~ "FESPSP",
      str_detect(OG, "FESPSP") ~ "FESPSP",
      str_detect(OG, "Universidade Federal de Integração latino-americana") ~ "UNILA",
      str_detect(OG, "Fundação Armando Álvares Penteado") ~ "FAAP",
      str_detect(OG, "FAAP") ~ "FAAP",
      str_detect(OG, "UNESP/Araraquara-SP") ~ "UNESP",
      str_detect(OG, "Serviço Social da Indústria") ~ "SESI",
      str_detect(OG, "SESI") ~ "SESI",
      str_detect(OG, "Universidade Regional de Blumenau") ~ "FURB",
      str_detect(OG, "University of Peloponese") ~ "University of Peloponese",
      str_detect(OG, "Universidade de Brasilia") ~ "Universidade de Brasilia",
      str_detect(OG, "Université Paris X") ~ "Université Paris X",
      str_detect(OG, "Universidad del Salvador ") ~ "USAL",
      str_detect(OG, "USAL") ~ "USAL",
      str_detect(OG, "Conicet") ~ "CONICET",
      str_detect(OG, "Centro Universitário do Distrito Federal") ~ "UNIDF",
      str_detect(OG, "UNIDF") ~ "UNIDF",
      str_detect(OG, "PUC - SP") ~ "PUC/SP",
      str_detect(OG, "PUC - SÃO PAULO") ~ "PUC/SP",
      str_detect(OG, "Universidade do Rio de Janeiro") ~ "UFRJ",
      str_detect(OG, "London School of Economics") ~ "LSE",
      str_detect(OG, "Universidade Estadual de Londrina") ~ "UEL",
      str_detect(OG, "UEL") ~ "UEL",
      str_detect(OG, "Open Society Foundations") ~ "Open Society Foundations",
      str_detect(OG, "FECAP") ~ "FECAP",
      str_detect(OG, "Fundação Escola de Comércio Álvares Penteado") ~ "FECAP",
      str_detect(OG, "UNINORTE") ~ "UNINORTE",
      str_detect(OG, "Universidad del Norte") ~ "UNINORTE",
      str_detect(OG, "Universidade Federal de Mato Grosso do Sul") ~ "UFMS",
      str_detect(OG, "UFMS") ~ "UFMS",
      str_detect(OG, "Universidad Nacional de Costa Rica") ~ "UNA",
      str_detect(OG, "UNA") ~ "UNA",
      str_detect(OG, "Insper ") ~ "INSPER",
      str_detect(OG, "INSPER") ~ "INSPER",
      str_detect(OG, "Universidade Veiga de Almeida") ~ "UVA",
      str_detect(OG, "UVA") ~ "UVA",
      str_detect(OG, "Instituto Federal do Norte de Minas Gerais") ~ "IFNMG",
      str_detect(OG, "Santiago Dantas") ~ "PPGRI Santiago Dantas",
      str_detect(OG, "Universidad de la República") ~ "UdelaR",
      str_detect(OG, "UdelaR") ~ "UdelaR",
      str_detect(OG, "Universidade federal do Amapá") ~ "UNIFAP",
      str_detect(OG, "Centro Universitário Jorge Amado") ~ "UNIJORGE",
      str_detect(OG, "UNESP/Araraquara") ~ "UNESP",
      str_detect(OG, "Unb") ~ "UnB",
      str_detect(OG, "UNIFAI") ~ "UNIFAI",
      str_detect(OG, "Universidade Federal de Uberlândia") ~ "UFU",
      str_detect(OG, "Universidade do Porto") ~ "Universidade do Porto",
      str_detect(OG, "Faculdade de Filosofia e Ciências UNESP") ~ "UNESP",
      str_detect(OG, "Uppsala Universitet") ~ "Uppsala University",
      str_detect(OG, "UNESP - Araraquara") ~ "UNESP",
      str_detect(OG, "Carleton University") ~ "Carleton University",
      str_detect(OG, "CEIPIL") ~ "CEIPIL",
      str_detect(OG, "PPGCM") ~ "PPGCM",
      str_detect(OG, "ENSP/Fiocruz") ~ "FIOCRUZ",
      str_detect(OG, "São Paulo State University") ~ "UNESP",
      str_detect(OG, "Universidade da Força Aérea") ~ "UNIFA",
      str_detect(OG, "UNIFA") ~ "UNIFA",
      str_detect(OG, "Universidade Católica de Petrópolis") ~ "UCP",
      str_detect(OG, "UCP") ~ "UCP",
      str_detect(OG, "Universidade Federal do Estado do Rio de Janeiro") ~ "UNIRIO",
      str_detect(OG, "Pontifícia universidade católica do Rio de Janeiro") ~ "PUC/RIO",
      str_detect(OG, "UNIJUI") ~ "UNIJUI",
      str_detect(OG, "Universidade Regional do Noroeste do Estado do Rio Grande do Sul") ~ "UNIJUI",
      str_detect(OG, "UNIJUÍ") ~ "UNIJUI",
      str_detect(OG, "Instituto Federal de São Paulo") ~ "IFSP",
      str_detect(OG, "Instituto de Relações Internacionais/PUC-RIO") ~ "PUC/RIO",
      str_detect(OG, "CEIPIL-UNICEN-CIC") ~ "CEIPIL",
      str_detect(OG, "Universidad Sergio Arboleda") ~ "Universidad Sergio Arboleda",
      str_detect(OG, "Universidade Federal do Estado do Rio de Janeiro") ~ "UNIRIO",
      str_detect(OG, "Universidad Nacional de Quilmes") ~ "UNQ",
      str_detect(OG, "UNQ") ~ "UNQ",
      str_detect(OG, "Universidad Argentina de la Empresa") ~ "UADE",
      str_detect(OG, "UADE") ~ "UADE",
      str_detect(OG, "Embaixador do Ministério de Relações Exteriores") ~ "MRE",
      str_detect(OG, "Universidade do Estado de São Paulo") ~ "UNESP",
      str_detect(OG, "Universidade Católica Portuguesa") ~ "UCP",
      str_detect(OG, "Universidade Lusófona do Porto") ~ "ULP",
      str_detect(OG, "ULP") ~ "ULP",
      str_detect(OG, "Universidad de la República") ~ "UR",
      str_detect(OG, "Organização das Nações Unidas") ~ "ONU",
      str_detect(OG, "ONU") ~ "ONU",
      str_detect(OG, "Universidade de Passo Fundo ") ~ "UPF",
      str_detect(OG, "UPF") ~ "UPF",
      str_detect(OG, "Institut des Hautes Etudes de l’Amérique Latine") ~ "IHEAL",
      str_detect(OG, "IHEAL") ~ "IHEAL",
      str_detect(OG, "Instituto Português de Relações Internacionais/Universidade Nova") ~ "NOVA",
      str_detect(OG, "Centro de Investigación y Docencia Econômicas") ~ "CIDE",
      str_detect(OG, "University of Sussex") ~ "University of Sussex",
      str_detect(OG, "University of the Basque Country") ~ "University of the Basque Country",
      str_detect(OG, "Shanghai Jiao Tong University") ~ "Shanghai Jiao Tong University",
      str_detect(OG, "University of Shanghai") ~ "University of Shanghai",
      str_detect(OG, "Shanghai International Studies University") ~ "Shanghai International Studies University",
      str_detect(OG, "Universitat Autônoma de Barcelona") ~ "Universitat Autônoma de Barcelona",
      str_detect(OG, "Universidade de Minho") ~ "Universidade do Minho",
      str_detect(OG, "University College Dublin") ~ "University College Dublin",
      str_detect(OG, "Hankuk University") ~ "Hankuk University",
      str_detect(OG, "Mahidol University") ~ "Mahidol University",
      str_detect(OG, "Vietnam National University") ~ "Vietnam National University",
      str_detect(OG, "Tongji University") ~ "Tongji University",
      str_detect(OG, "Bielefeld University") ~ "Bielefeld University",
      str_detect(OG, "Universidad Complutense de Madrid") ~ "Universidad Complutense de Madrid",
      str_detect(OG, "University of Florence") ~ "University of Florence",
      str_detect(OG, "University of California San Diego") ~ "University of California San Diego",
      str_detect(OG, "Vietnam National University") ~ "Vietnam National University",
      str_detect(OG, "University of Birmingham") ~ "University of Birmingham",
      str_detect(OG, "Universidade Federal de Sao Paulo") ~ "UNIFESP",
      str_detect(OG, "University of Lisbon") ~ "Universidade de Lisboa",
      str_detect(OG, "University of Maryland") ~ "University of Maryland",
      str_detect(OG, "Consejo Nacional de Investigaciones Cientificas y Tecnicas") ~ "CONICET",
      str_detect(OG, "University of Tampere") ~ "University of Tampere",
      str_detect(OG, "Universidad del Rosario") ~ "Universidad del Rosario",
      str_detect(OG, "EAFIT") ~ "EAFIT",
      str_detect(OG, "Universidade Lusíada") ~ "Universidade Lusíada",
      str_detect(OG, "University of Witwatersrand") ~ "University of Witwatersrand",
      str_detect(OG, "Universidade Federal de Integração Latino-Americana") ~ "UNILA",
      str_detect(OG, "Universidade Federal de Paraíba") ~ "UFPB",
      str_detect(OG, "Faculdade Damas") ~ "Faculdade Damas",
      str_detect(OG, "Escola Superior de Guerra") ~ "ESG",
      str_detect(OG, "Ministério de Relações Exteriores") ~ "MRE",
      str_detect(OG, "Consejo Nacional de Investigaciones Científicas y Técnicas") ~ "CONICET",
      str_detect(OG, "Universidade do Porto") ~ "Universidade do Porto",
      str_detect(OG, "Universidad Arturo Prat") ~ "Universidad Arturo Prat",
      str_detect(OG, "Universidad del Rosario") ~ "Universidad del Rosario",
      str_detect(OG, "Florida International University") ~ "Florida International University",
      str_detect(OG, "Universidad San Francisco de Quito") ~ "Universidad San Francisco de Quito",
      str_detect(OG, "National Chung Hsing University") ~ "National Chung Hsing University",
      str_detect(OG, "Universidad de los Andes") ~ "Universidad de los Andes",
      str_detect(OG, "Oxford University") ~ "Oxford University",
      str_detect(OG, "Universidade Federal de Tocantins") ~ "UFT",
      str_detect(OG, "University of Lisbon") ~ "Universidade de Lisboa",
      str_detect(OG, "Ohio State University") ~ "Ohio State University",
      str_detect(OG, "University of Brasília International Relations Institute") ~ "UnB",
      str_detect(OG, "University of Montenegro") ~ "University of Montenegro",
      str_detect(OG, "University of Brasília") ~ "UnB",
      str_detect(OG, "Brazilian Ministry of External Relations") ~ "MRE",
      str_detect(OG, "University La Salle Rio de Janeiro") ~ "Unilasalle",
      str_detect(OG, "Australian National University") ~ "Australian National University",
      str_detect(OG, "University of Massachusetts") ~ "University of Massachusetts",
      str_detect(OG, "Instituto Universitário de Lisboa") ~ "Instituto Universitário de Lisboa",
      str_detect(OG, "Marinha do Brasil") ~ "Marinha do Brasil",
      str_detect(OG, "State University of Campinas") ~ "UNICAMP",
      str_detect(OG, "University of Leuven") ~ "University of Leuven",
      str_detect(OG, "State University of Paraíba's") ~ "UFBP",
      str_detect(OG, "State University of Paraíba") ~ "UFBP",
      str_detect(OG, "Universidade Federal de Alagoas") ~ "UFAL",
      str_detect(OG, "Universidade de Santiago do Chile") ~ "Universidade de Santiago do Chile",
      str_detect(OG, "Universidade Federal de Maringá") ~ "Universidade Federal de Maringá",
      str_detect(OG, "Tel Aviv University") ~ "Tel Aviv University",
      str_detect(OG, "Federal University of Santa Catarina") ~ "UFSC",
      str_detect(OG, "Johns Hopkins University") ~ "Johns Hopkins University",
      str_detect(OG, "Universidade Técnica de Lisboa") ~ "Universidade Técnica de Lisboa",
      str_detect(OG, "Universidad Alberto Hurtado") ~ "Universidad Alberto Hurtado",
      str_detect(OG, "Karadeniz Technical University") ~ "Karadeniz Technical University",
      str_detect(OG, "University of Beira Interior ") ~ "University of Beira Interior ",
      str_detect(OG, "Universidade Federal de São Carlos") ~ "UFSCar",
      str_detect(OG, "Maringá State University") ~ "UEM",
      str_detect(OG, "University of Firenze") ~ "University of Firenze",
      str_detect(OG, "Universtity of Brasília") ~ "UnB",
      str_detect(OG, "University of Rio de Janeiro") ~ "UERJ",
      str_detect(OG, "Brazil External Relations") ~ "MRE",
      str_detect(OG, "Conselho Nacional de Desenvolvimento Científico e Tecnol") ~ "CONICET",
      str_detect(OG, "Stockholm University") ~ "Stockholm University",
      str_detect(OG, "Ministério da Justiça") ~ "Ministério da Justiça",
      str_detect(OG, "Universidade Nacional Autônoma do México") ~ "UNAM",
      str_detect(OG, "State University of New York") ~ "State University of New York",
      str_detect(OG, "Agência Brasileira de Inteligência") ~ "ABIN",
      str_detect(OG, "Senador da República Federativa do Brasil") ~ "Senado Federal",
      str_detect(OG, "Universidade do Tocantins") ~ "UNT",
      str_detect(OG, "Universidades do Minho") ~ "Universidades do Minho",
      str_detect(OG, "Université du Quebec") ~ "Université du Quebec",
      str_detect(OG, "UENF") ~ "UENF",
      str_detect(OG, "Universidade Estadual Norte-Fluminense") ~ "UENF",
      str_detect(OG, "Università di Bologna") ~ "Università di Bologna",
      str_detect(OG, "Universidade do Vale do Itajaí") ~ "Univali",
      str_detect(OG, "Univali") ~ "Univali",
      OG == "Estado do Rio de Janeiro" ~ "UERJ",
      OG == "Universidade  Estadual da Paraíba" ~ "UEPB",
      str_detect(OG, "Fundação Alexandre de Gusmão do Itamaraty") ~ "FUNAG",
      str_detect(OG, "Instituto Universitário de Pesquisas do Rio de Janeiro") ~ "IUPERJ",
      str_detect(OG, "Fundação de Apoio Administrativo do Estado de São Paulo") ~ "FAPESP",
      str_detect(OG, "Instituto Brasileiro de Relações Internacionais") ~ "UnB",
      str_detect(OG, "Universidade Federal do Ceará") ~ "UFC",
      TRUE ~ OG
    )
  ) %>%
  group_by(TI,PDFURL) %>%
  mutate(OG = str_c(OG, collapse = ';')) %>%
  distinct() -> data_sem_meridiano


# Cleaning OG (Meridiano47)
data %>%
  filter(SO == "Meridiano 47 - Journal of Global Studies") %>%
  separate_rows(OG, sep = ',') %>% # Est? separado por v?rgula
  mutate(
    OG = str_trim(OG),
    OG = case_when(
      str_detect(OG, "Universidade Federal do Rio Grande do Sul") ~ "UFRGS",
      str_detect(OG,"Universidade Federal de São Paulo") ~ "UNIFESP",
      str_detect(OG,"Estado-Maior do Exército") ~ "ECEME",
      str_detect(OG, "Federal Fluminense") ~ "UFF",
      str_detect(OG, "Moscow State University") ~ "MSU",
      str_detect(OG,"Federal de Pelotas") ~ "UFPEL",
      str_detect(OG,"Oeste da Bahia") ~ "UFOB",
      str_detect(OG, "Universitas Muhammadiyah Yogyakarta") ~ "Universitas Muhammadiyah Yogyakarta",
      str_detect(OG,"Federal do Rio de Janeiro") ~ "UFRJ",
      str_detect(OG,"Instituto Sul-Americano de Política e Estratégia") ~ "ISAPE",
      str_detect(OG,"University of Moscow") ~ "University of Moscow",
      str_detect(OG,"UFRGS") ~ "UFRGS",
      str_detect(OG,"ECEME") ~ "ECEME",
      str_detect(OG,"INMETRO") ~ "INMETRO",
      str_detect(OG,"UFU") ~ "UFU",
      str_detect(OG,"Escola de Comando e") ~ "ECEME",
      str_detect(OG,"Universidad Nacional de Asuncion") ~ "Universidad Nacional de Asunción",
      str_detect(OG,"Anhembi Morumbi") ~ "Anhembi Morumbi",
      str_detect(OG,"Kazimierz Wielki University") ~ "Kazimierz Wielki University",
      str_detect(OG,"American University of Central Asia") ~ "American University of Central Asia",
      str_detect(OG,"PUCMINAS") ~ "PUC/MG",
      str_detect(OG,"UEPB") ~ "UEPB",
      str_detect(OG,"Universidade Nova de Lisboa") ~ "NOVA",
      str_detect(OG,"SNSPA") ~ "SNSPA",
      str_detect(OG,"Universidad Autônoma de Madrid") ~ "UAM",
      str_detect(OG,"Federal University of Rio de Janeiro") ~ "UFRJ",
      str_detect(OG,"Instituto de Estudos Políticos UNIVERSIDADE") ~ "UCP",
      str_detect(OG,"CIPI") ~ "CIPI",
      str_detect(OG,"Universitas Negeri Makassar") ~ "UNM",
      str_detect(OG,"Universidade Estadual Paulista") ~ "UNESP",
      str_detect(OG,"Escola de Guerra Naval") ~ "EGN",
      str_detect(OG,"Universidad Nacional de San Martín") ~ "Universidad Nacional de San Martín",
      str_detect(OG,"FLACSO-Ecuador") ~ "FLACSO-Ecuador",
      str_detect(OG,"Kazakh Turkish University") ~ "Kazakh Turkish University",
      str_detect(OG,"Universidade Estadual da Paraíba") ~ "UEPB",
      str_detect(OG,"UCAM") ~ "UCAM",
      str_detect(OG,"University of New England") ~ "University of New England",
      str_detect(OG,"Federal University of São Paulo") ~ "UNIFESP",
      str_detect(OG,"Universidade de Brasília") ~ "UnB",
      str_detect(OG,"Universidade Federal Rural do Rio de Janeiro") ~ "UFRRJ",
      str_detect(OG,"RSP College") ~ "RSP College",
      str_detect(OG,"Universidade Fumec") ~ "FUMEC",
      str_detect(OG,"UFMG") ~ "UFMG",
      str_detect(OG,"Universidade Federal de Juiz de Fora") ~ "UFJF",
      str_detect(OG,"Universidade Federal de Viçosa") ~ "UFV",
      str_detect(OG,"Federal University of Minas") ~ "UFMG",
      str_detect(OG,"Universidade Federal da Bahia") ~ "UFBA",
      str_detect(OG,"JNU") ~ "JNU",
      str_detect(OG,"Uni-CV") ~ "Universidade de Cabo Verde",
      str_detect(OG,"UNIPAMPA") ~ "UNIPAMPA",
      str_detect(OG,"Federal University of Pampa") ~ "UNIPAMPA",
      str_detect(OG,"UNISC") ~ "UNISC",
      str_detect(OG,"University of Santa Cruz do Sul") ~ "UNISC",
      str_detect(OG,"Catholic University of Portugal") ~ "UCP",
      str_detect(OG,"Federal University of Rio Grande do Sul") ~ "UFRGS",
      str_detect(OG,"Rio de Janeiro State University") ~ "UERJ",
      str_detect(OG,"UFRRJ") ~ "UFRRJ",
      str_detect(OG,"Candido Mendes") ~ "Universidade Cândido Mendes",
      str_detect(OG,"UFABC") ~ "UFABC",
      str_detect(OG,"Universidade Federal do ABC") ~ "UFABC",
      str_detect(OG,"UniBH") ~ "UniBH",
      str_detect(OG,"PEPI") ~ "UFRJ",
      str_detect(OG,"University of Ibadan") ~ "University of Ibadan",
      str_detect(OG,"UFPB") ~ "UFPB",
      str_detect(OG,"Universidade Federal de Pernambuco") ~ "UFPE",
      str_detect(OG,"Universidade Federal de Uberlândia") ~ "UFU",
      str_detect(OG,"IBECAP") ~ "IBECAP",
      str_detect(OG,"PUC Minas") ~ "PUC/MG",
      str_detect(OG,"FACAMP") ~ "FACAMP",
      str_detect(OG,"Faculdades de Campinas") ~ "FACAMP",
      str_detect(OG,"Universidade de Santa Cruz do Sul") ~ "UNISC",
      str_detect(OG,"UFSCar") ~ "UFSCar",
      str_detect(OG,"Universidade Federal de São Carlos ") ~ "UFSCar",
      str_detect(OG,"St. Andrew's University") ~ "St. Andrew's University",
      str_detect(OG,"Universidade Federal de Santa Maria") ~ "UFSM",
      str_detect(OG,"UFSM") ~ "UFSM",
      str_detect(OG,"Universidade Federal do Pampa") ~ "UNIPAMPA",
      str_detect(OG,"CADIC") ~ "CADIC",
      str_detect(OG,"UNIPAMPA") ~ "UNIPAMPA",
      str_detect(OG,"Universidad de Buenos Aires") ~ "UBA",
      str_detect(OG,"UBA") ~ "UBA",
      str_detect(OG,"Universidad Nacional de Rosario") ~ "UNR",
      str_detect(OG,"UNR") ~ "UNR",
      str_detect(OG,"IFRS") ~ "IFRS",
      str_detect(OG,"USP") ~ "USP",
      str_detect(OG,"Universidade de São Paulo") ~ "USP",
      str_detect(OG,"Metropolitan University Prague") ~ "Metropolitan University Prague",
      str_detect(OG,"Universidade Federal de Santa Catarina") ~ "UFSC",
      str_detect(OG,"Defence Studies King") ~ "King's College London",
      str_detect(OG,"ISRA") ~ "ISRA",
      str_detect(OG,"ZNA") ~ "ZNA",
      str_detect(OG,"GIGA") ~ "GIGA",
      str_detect(OG,"German Institute of Global and Area Studies") ~ "GIGA",
      str_detect(OG,"Metrology Quality") ~ "INMETRO",
      str_detect(OG,"UdeG") ~ "UdeG",
      str_detect(OG,"Universidad de Guadalajara") ~ "UdeG",
      str_detect(OG,"UNISA") ~ "UNISA",
      str_detect(OG,"Pontifícia Universidade Católica de Minas Gerais") ~ "PUC/MG",
      str_detect(OG,"UNISINOS") ~ "UNISINOS",
      str_detect(OG,"UNILA") ~ "UNILA",
      str_detect(OG,"Universidade Federal da Integração Latino-americana") ~ "UNILA",
      str_detect(OG,"San Tiago Dantas") ~ "PPGRI San Tiago Dantas",
      str_detect(OG,"Universidade Presbiteriana Mackenzie") ~ "Universidade Presbiteriana Mackenzie",
      str_detect(OG,"PUC-SP") ~ "PUC/SP",
      str_detect(OG,"CONICET") ~  "CONICET",
      str_detect(OG,"Universidade Virtual do Estado de São Paulo") ~  "UNIVESP",
      str_detect(OG,"Universidade Federal da Paraíba") ~  "UFPB",
      str_detect(OG,"UFPB") ~  "UFPB",
      str_detect(OG,"PUC MINAS") ~  "PUC/MG",
      str_detect(OG,"Universidade Federal da Integração Latino-Americana") ~  "UNILA",
      str_detect(OG,"Autônoma de Puebla") ~  "Benemérita Universidad Autônoma de Puebla",
      str_detect(OG,"Sun Yat-sen University") ~  "Sun Yat-sen University",
      str_detect(OG,"Centro Universitário Ritter dos Reis") ~  "UniRitter",
      str_detect(OG,"IESP") ~  "UERJ",
      str_detect(OG,"Universidad Veracruzana") ~  "Universidad Veracruzana",
      str_detect(OG,"Unesp-Marília") ~  "UNESP",
      str_detect(OG,"Universidade Estadual do Rio de Janeiro") ~  "UERJ",
      str_detect(OG,"Universidade Estadual de Campinas") ~  "UNICAMP",
      str_detect(OG,"FATEC-Ourinhos") ~  "FATEC",
      str_detect(OG,"University of São Paulo") ~  "USP",
      str_detect(OG,"Unieuro") ~  "UNIEURO",
      str_detect(OG,"Pontifícia Universidade do Paraná") ~  "PUC/PR",
      str_detect(OG,"UNIVERSIDADE PRESBITERIANA MACKENZIE") ~  "Universidade Presbiteriana Mackenzie",
      str_detect(OG,"UFGD") ~  "UFGD",
      str_detect(OG,"National University of Rosario") ~  "UNR",
      str_detect(OG,"Unesp/Marília") ~  "UNESP",
      str_detect(OG,"Universidade Estadual da paraíba") ~  "UEPB",
      str_detect(OG,"UNIVERSIDADE FEDERAL DE UBERLÂNDIA") ~  "UFU",
      str_detect(OG,"Universidade do Minho") ~  "Universidade do Minho",
      str_detect(OG,"Universidade Federal do Rio Grandes do Sul") ~  "UFRGS",
      str_detect(OG,"Fundação Getulio Vargas") ~  "FGV",
      str_detect(OG,"CONICET") ~  "CONICET",
      str_detect(OG,"Unesp Marília") ~  "UNESP",
      str_detect(OG,"PUCRS") ~  "PUC/RS",
      str_detect(OG,"Universidade Federal de Sergipe") ~  "UFS",
      str_detect(OG,"Unifesp") ~  "UNIFESP",
      str_detect(OG,"Unesp") ~  "UNESP",
      str_detect(OG,"UFGD/Unicamp") ~  "UFGD",
      str_detect(OG,"UnB") ~  "UnB",
      str_detect(OG, "CEPESE") ~  "CEPESE",
      str_detect(OG, "FUNIF") ~  "FUNIF",
      str_detect(OG, "UniRitter") ~  "UniRitter",
      str_detect(OG, "PUC-Rio") ~  "PUC/RIO",
      str_detect(OG, "Universidad Estadual de Campinas") ~  "UNICAMP",
      str_detect(OG, "UNESP - Franca") ~  "UNESP",
      str_detect(OG, "UNESP Marília") ~  "UNESP",
      str_detect(OG, " UnB") ~  "UnB",
      str_detect(OG, "ESG") ~  "ESG",
      str_detect(OG, "Brazilian War College") ~  "ESG",
      str_detect(OG, "PPGEM/EGN") ~  "EGN",
      str_detect(OG, "PPGEST-INEST/UFF") ~  "UFF",
      str_detect(OG, "Universidade Federal do Paraná") ~  "UFPR",
      str_detect(OG, "UFPR") ~  "UFPR",
      str_detect(OG, "UNIVERSIDADE FEDERAL DA BAHIA") ~  "UFBA",
      str_detect(OG, "UFBA") ~  "UFBA",
      str_detect(OG, "Pontificia Universidade Católica de Minas Gerais") ~  "PUC/MG",
      str_detect(OG, "Universidade do Estado do Rio de Janeiro") ~  "UERJ",
      str_detect(OG, "UFFS") ~  "UFFS",
      str_detect(OG, "Universidade Federal da Fronteira Sul") ~  "UFFS",
      str_detect(OG, "Instituto Nacional de Metrologia") ~  "INMETRO",
      str_detect(OG, "UERJ") ~  "UERJ",
      str_detect(OG, "UFPE/Doutorando em Ciência Política.") ~  "UFPE",
      str_detect(OG, "UFPE") ~  "UFPE",
      str_detect(OG, "Instituto de Estudos Estratégicos") ~  "UFF",
      str_detect(OG, "Pontificia Universidade Católica do Rio de Janeiro") ~  "PUC/RIO",
      str_detect(OG, "Universidade Federal de Goiás") ~  "UFG",
      str_detect(OG, "UFG") ~  "UFG",
      str_detect(OG, "IREL/UnB") ~  "UnB",
      str_detect(OG, "UNB") ~  "UnB",
      str_detect(OG, "Instituto de Relações Internacionais da Pontifícia") ~ "PUC/RIO",
      str_detect(OG, "Universidade Federal da Grande Dourados") ~ "UFGD",
      str_detect(OG, "Instituto de Relações Internacionais e Defesa") ~ "UFRJ",
      str_detect(OG, "IRID") ~ "UFRJ",
      str_detect(OG, "Unicamp") ~ "UNICAMP",
      str_detect(OG, "Fundação Getúlio Vargas") ~ "FGV",
      str_detect(OG, "Universidad de Cantabria") ~ "Universidad de Cantabria",
      str_detect(OG, "Universidade de Campinas") ~ "UNICAMP",
      str_detect(OG, "UNIR") ~ "UNIR",
      str_detect(OG, "INPG") ~ "INPG",
      str_detect(OG, "Universidade do Povo da China") ~ "Universidade do Povo da China",
      str_detect(OG, "FIOCRUZ") ~ "FIOCRUZ",
      str_detect(OG, "UFSC") ~ "UFSC",
      str_detect(OG, "Bacharel em Relações Internacionais UNIFESP") ~ "PPGRI Santiago Dantas",
      str_detect(OG, "Universidade Católica de Brasília") ~ "PUC/Brasília",
      str_detect(OG, "Universidade de Rosário") ~ "Universidade de Rosário",
      str_detect(OG, "Anehmbia") ~ "Anhembi Morumbi",
      str_detect(OG, "Universidade Federal de Minas Gerais") ~ "UFMG",
      str_detect(OG, "Pontifícia Universidade Católica de Monas Gerais") ~ "PUC/MG",
      str_detect(OG, "Pontifícia Universidade Católica do Rio de Janeiro") ~ "PUC/RIO",
      str_detect(OG, "UNIVERSIDADE DE BRASILIA") ~ "UnB",
      str_detect(OG, "Universidade de Lisboa") ~ "Universidade de Lisboa",
      str_detect(OG, "Ministério das Relações Exteriores") ~ "MRE",
      str_detect(OG, "UCL-Mons") ~ "UCL",
      str_detect(OG, "Universidade do Grande Rio") ~ "UNIGRANRIO",
      str_detect(OG, "Ministerio das Relacoes Exteriores") ~ "MRE",
      str_detect(OG, "Pontifícia Universidade Católica do Paraná") ~ "PUC/PR",
      str_detect(OG, "Iesp-Uerj") ~ "UERJ",
      str_detect(OG, "CPDOC/Fundação Getúlio Vargas") ~ "FGV",
      str_detect(OG, "Universidade Vila Velha") ~ "UVV",
      str_detect(OG, "UVV") ~ "UVV",
      str_detect(OG, "Universidade Federal do Espírito Santo") ~ "UFES",
      str_detect(OG, "UFES") ~ "UFES",
      str_detect(OG, "UFT") ~ "UFT",
      str_detect(OG, "Universidade Federal do Tocantins") ~ "UFT",
      str_detect(OG, "Centro Universitário Belas Artes") ~ "Centro Universitário Belas Artes",
      str_detect(OG, "Universidade Federal de Roraima") ~ "UFRR",
      str_detect(OG, "UFRR") ~ "UFRR",
      str_detect(OG, "Université Paris VIII") ~  "Université Paris VIII",
      str_detect(OG, "Pontifícia Universidade Católica de Goiás") ~ "PUC/GO",
      str_detect(OG, "PUC-Minas") ~ "PUC/MG",
      str_detect(OG, "Universidade do Estado de Mato Grosso") ~ "UNEMAT",
      str_detect(OG, "UNEMAT") ~ "UNEMAT",
      str_detect(OG, "CERAW") ~ "CERAW",
      str_detect(OG, "Universidade de Fortaleza") ~ "UNIFOR",
      str_detect(OG, "UNIFOR") ~ "UNIFOR",
      str_detect(OG, "Intendencia Municipal de Montevideo") ~ "Intendencia Municipal de Montevideo",
      str_detect(OG, "Universidade Federal do Rio Grande") ~ "FURG",
      str_detect(OG, "FURG") ~ "FURG",
      str_detect(OG, "UFPel") ~ "UFPEL",
      str_detect(OG, "Univesidade de Brasília") ~ "UnB",
      str_detect(OG, "FLACSO-Argentina") ~  "FLACSO-Argentina",
      str_detect(OG, "NMBU") ~ "NMBU",
      str_detect(OG, "PRIO") ~ "PRIO",
      str_detect(OG, "Peace Research Institute Oslo") ~ "PRIO",
      str_detect(OG, "Norwegian Centre for Humanitarian Studies") ~  "Norwegian Centre for Humanitarian Studies",
      str_detect(OG, "Universidade de Cambridge") ~  "Universidade de Cambridge",
      str_detect(OG, "CGI.br") ~  "CGI.br",
      str_detect(OG, "ESPM") ~  "ESPM",
      str_detect(OG, "PUC-MINAS") ~  "PUC/MG",
      str_detect(OG, "Universidad J.K. Kennedy") ~  "Universidad J.K. Kennedy",
      str_detect(OG, "Shahjalal University of Science") ~  "Shahjalal University of Science and Technology",
      str_detect(OG, "Centro Universitario La Salle") ~  "Unilasalle",
      str_detect(OG, "Unilasalle") ~  "Unilasalle",
      str_detect(OG, "PUC-RS") ~  "PUC/RS",
      str_detect(OG, "Centro Universitário do Distrito Federal") ~  "Centro Universitário do Distrito Federal",
      str_detect(OG, "Universidad Nacional de Colombia") ~  "Universidad Nacional de Colombia",
      str_detect(OG, "Pontifícia Universidade Católica do Rio Grande do Sul") ~  "PUC/RS",
      str_detect(OG, "Universidade Federal do Sergipe") ~ "UFS",
      str_detect(OG, "Universidade Federal do Recôncavo") ~ "UFRB",
      str_detect(OG, "UFRB") ~ "UFRB",
      str_detect(OG, "Fapam") ~  "FAPAM",
      str_detect(OG, "Fundação Pedro Leopoldo") ~  "Fundação Pedro Leopoldo",
      str_detect(OG, "UNICURITIBA") ~ "UNICURITIBA",
      str_detect(OG, "Centro Universitário Curitiba") ~ "UNICURITIBA",
      str_detect(OG, "Faculdades Metropolitanas Unidas") ~ "FMU",
      str_detect(OG, "IPEA") ~  "IPEA",
      str_detect(OG, "Universidade São Tomas de Moçambique") ~ "Universidade São Tomas de Moçambique",
      str_detect(OG, "IFNMG") ~ "IFNMG",
      str_detect(OG, "Instituto Federal do  Norte de Minas") ~ "Instituto Federal do  Norte de Minas",
      str_detect(OG, "Instituto Superior Politécnico de Gaza") ~ "Instituto Superior Politécnico de Gaza",
      str_detect(OG, "Universidade Estadual da Paraiba") ~ "UEPB",
      str_detect(OG, "Pontíficia Universidade Católica de Minas Gerais") ~ "PUC/MG",
      str_detect(OG, "Leuphana Universität Lüneburg") ~ "Leuphana Universität Lüneburg",
      str_detect(OG, "ufsc") ~ "UFSC",
      str_detect(OG, "universidade federal de santa catarina") ~ "UFSC",
      str_detect(OG, "Uppsala University") ~ "Uppsala University",
      str_detect(OG, "Aberystwyth University") ~ "Aberystwyth University",
      str_detect(OG, "PUCMG") ~ "PUC/MG",
      str_detect(OG, "Puc-Rio") ~ "PUC/RIO",
      str_detect(OG, "Pontifícia Universidade Católica de Minas Ferais") ~ "PUC/MG",
      str_detect(OG, "Haigazian University") ~ "Haigazian University",
      str_detect(OG, "Universidad Nacional de Asunción") ~ "Universidad Nacional de Asunción",
      str_detect(OG, "Universidade Paulista Julio de Mesquita Ffilho") ~ "UNESP",
      str_detect(OG, "University of Gothenburg") ~ "University of Gothenburg",
      str_detect(OG, "University of Hawai") ~ "University of Hawai",
      str_detect(OG, "UFF") ~ "UFF",
      str_detect(OG, "Fluminense Federal University") ~ "UFF",
      str_detect(OG, "UNIP") ~ "UNIP",
      str_detect(OG, "Pontifical Catholic University of Minas Gerais") ~ "PUC/MG",
      str_detect(OG, "Paulista University") ~ "UNIP",
      str_detect(OG, "FGV") ~ "FGV",
      str_detect(OG, "Getúlio Vargas Foundation") ~ "FGV",
      str_detect(OG, "Vale do Ribeira") ~ "UNIVR",
      str_detect(OG, "IIEP") ~ "IIEP",
      str_detect(OG, "Instituto Interdisciplinario de Economía Política") ~ "IIEP",
      str_detect(OG, "UNM") ~ "UNM",
      str_detect(OG, "Universidad Nacional de Moreno") ~ "Universidad Nacional de Moreno",
      str_detect(OG, "London School of Economics and Political Science") ~ "LSE",
      str_detect(OG, "LSE") ~ "LSE",
      str_detect(OG, "Birkbeck University") ~ "Birkbeck University",
      str_detect(OG, "SOAS") ~ "SOAS",
      str_detect(OG, "School of Oriental and African Studies") ~ "SOAS",
      str_detect(OG, "Womankind Worldwide") ~ "Womankind Worldwide",
      str_detect(OG, "Getúlio Vargas Foundation") ~ "FGV",
      str_detect(OG, "Pontifical Catholic University of Rio de Janeiro") ~ "PUC/RIO",
      str_detect(OG, "PUC-RJ") ~ "PUC/RIO",
      str_detect(OG, "FLACSO") ~ "FLACSO",
      str_detect(OG, "Rutgers University") ~ "Rutgers University",
      str_detect(OG, "College London") ~ "King's College London",
      str_detect(OG, "PUC/RIO") ~ "PUC/RIO",
      str_detect(OG, "Meira Mattos Institute") ~ "Instituo Meira Mattos",
      str_detect(OG, "Federal University of São Carlos") ~ "UFSCar",
      str_detect(OG, "Federal University of Amapá") ~ "UNIFAP",
      str_detect(OG, "University of Brasilia") ~ "UnB",
      str_detect(OG, "Federal Rural University of Rio de Janeiro") ~ "UFRRJ",
      str_detect(OG, "University of Coimbra") ~ "Universidade de Coimbra",
      str_detect(OG, "Fluminense Federal University") ~ "UFF",
      str_detect(OG, "Naval War College") ~ "EGN",
      str_detect(OG, "Pontifícia Universidade Católica de São Paulo") ~ "PUC/SP",
      str_detect(OG, "Pontifical Catholic University of Minas Gerais") ~ "PUC/MG",
      str_detect(OG, "Federal University of Pernambuco") ~ "UFPE",
      str_detect(OG, "Federal University of Vale do São Francisco") ~ "UNIVASF",
      str_detect(OG, "UNIVASF") ~ "UNIVASF",
      str_detect(OG, "Federal Institute of Education, Science and Technology of G") ~ "IFGO",
      str_detect(OG, "Universidade de Stellenbosch") ~ "Universidade de Stellenbosch",
      str_detect(OG, "Instituto de Pesquisa Econômica Aplicada") ~ "IPEA",
      str_detect(OG, "University of Queensland") ~ "University of Queensland",
      str_detect(OG, "University of Waterloo") ~ "University of Waterloo",
      str_detect(OG, "Facultad Latinoamericana de Ciencias Sociales") ~ "FLACSO",
      str_detect(OG, "Centro Universitário de Belo Horizonte") ~ "UniBH",
      str_detect(OG, "Universidad de Salamanca") ~ "Universidad de Salamanca",
      str_detect(OG, "City University of New York") ~ "City University of New York",
      str_detect(OG, "Ministério da Defesa") ~ "Ministério da Defesa",
      str_detect(OG, "King's College London") ~ "King's College London",
      str_detect(OG, "República Federativa do Brasil Ministro de Estado da Defesa") ~ "Ministério da Defesa",
      str_detect(OG, "GRIALI") ~ "GRIALI",
      str_detect(OG, "Uniceub") ~ "UNICEUB",
      str_detect(OG, "University Center of Brasilia") ~ "UNICEUB",
      str_detect(OG, "CIPOD") ~ "CIPOD",
      str_detect(OG, "Open University") ~ "Open University",
      str_detect(OG, "Universidade Paris Diderot") ~ "Universidade Paris Diderot",
      str_detect(OG, "CONACYT") ~ "CONACYT",
      str_detect(OG, "República Federativa do Brasil Defesa") ~ "Ministério da Defesa",
      str_detect(OG, "Harvard University") ~ "Harvard University",
      str_detect(OG, "Universidade da Carolina do Norte") ~ "Universidade da Carolina do Norte",
      str_detect(OG, "Pontifícia Universidade Católica do Chile") ~ "Pontifícia Universidade Católica do Chile",
      str_detect(OG, "University of St Andrews") ~ "St. Andrew's University",
      str_detect(OG, "Universidade Católica do Rio de Janeiro") ~ "PUC/RIO",
      str_detect(OG, "Controladoria-Geral da União") ~ "CGU",
      str_detect(OG, "IUPERJ") ~ "IUPERJ",
      str_detect(OG, "Universidade Católica de São Paulo") ~ "PUC/SP",
      str_detect(OG, "Embaixada do Brasil em Santiago do Chile") ~ "MRE",
      str_detect(OG, "Centro Universitário de Brasília") ~ "Centro Universitário de Brasília",
      str_detect(OG, "Universidade de Buenos Aires") ~ "UBA",
      str_detect(OG,'Universidades Nacionais de Buenos Aires') ~ "UBA",
      str_detect(OG, "Universidade de Bilkent") ~ "Universidade de Bilkent",
      str_detect(OG, "Quinnipiac University") ~ "Quinnipiac University",
      str_detect(OG, "Doutora em Relações Internacionais. Professora") ~ "Anhembi Morumbi",
      str_detect(OG, "Chapman University") ~  "Chapman University",
      str_detect(OG, "University of Denver") ~ "University of Denver",
      str_detect(OG, "Sun Yat Sen University") ~  "Sun Yat-sen University",
      str_detect(OG, "Sun Yat-sen University") ~ "Sun Yat-sen University",
      str_detect(OG, "Centro Brasileiro de Análise e Planejamento") ~ "",
      str_detect(OG, "CEBRAP") ~ "CEBRAP",
      str_detect(OG, "Instituto de Estudos Políticos Universidade Católica Portugu") ~ "UCP",
      str_detect(OG, "Pontificia Universidad Católica de Chile") ~ "Pontifícia Universidade Católica do Chile",
      str_detect(OG,"National University of Public Service") ~ "National University of Public Service",
      str_detect(OG,"Shahid Rajaee") ~ "Shahid Rajaee Teacher Training University",
      str_detect(OG,"Instituto Português de Relações Internacionais. Universidad") ~ "NOVA",
      str_detect(OG,"Universidad de Los Andes") ~ "Universidad de Los Andes",
      str_detect(OG,"CEIPA") ~ "CEIPA",
      str_detect(OG,"Universidad de Chile") ~ "Universidad de Chile",
      str_detect(OG,"University of Management and Technology") ~ "University of Management and Technology",
      str_detect(OG,"Colégio Militar de Porto Alegre") ~ "Colégio Militar de Porto Alegre",
      str_detect(OG,"Coimbra") ~ "Universidade de Coimbra",
      str_detect(OG,"Columbia University") ~ "Columbia University",
      str_detect(OG,"FCT/UNESP") ~ "UNESP",
      str_detect(OG,"Universidade FEderal do Espírito Santo") ~ "UFES",
      str_detect(OG,"Centro Universitário UNI-BH") ~ "UniBH",
      str_detect(OG,"University of Warsaw") ~ "University of Warsaw",
      str_detect(OG,"Universidad de París") ~ "Université Paris VIII",
      str_detect(OG,"Universidade Federal de Campina Grande") ~ "UFCG",
      str_detect(OG,"UFCG") ~ "UFCG",
      str_detect(OG,"Ministro da Defesa") ~ "Ministério da Defesa",
      str_detect(OG,"St Andrews University") ~ "St. Andrew's University",
      str_detect(OG,"PUC Rio") ~ "PUC/RIO",
      str_detect(OG,"Universidade de Sergipe") ~ "UFS",
      str_detect(OG,"PUC SP") ~ "PUC/SP",
      str_detect(OG,"Georgetown University") ~ "Georgetown University",
      str_detect(OG,"Unisinos") ~ "UNISINOS",
      str_detect(OG,"Universidade do Estado da Bahia") ~ "UNEB",
      str_detect(OG,"UNEB") ~ "UNEB",
      str_detect(OG,"Universidade Católica de Santos") ~ "PUC/SANTOS",
      str_detect(OG,"Universidade Federal de Rondônia") ~ "UNIR",
      str_detect(OG,"UNIR") ~ "UNIR",
      str_detect(OG, "Universidade de Columbia") ~ "Columbia University",
      str_detect(OG, "Universidade de Brasíla, Faculdade de Comunicação") ~ "UnB",
      str_detect(OG, "University of Chicago") ~ "University of Chicago",
      str_detect(OG, "Departamento de Relações Internacionais, Centro Univ") ~ "Unilasalle",
      str_detect(OG, "Universidade Estadual de Maringá") ~ "UEM",
      str_detect(OG, "UEM") ~ "UEM",
      str_detect(OG, "Universidade de Cabo Verde") ~ "Universidade de Cabo Verde",
      str_detect(OG, "Panamerican University") ~ "Panamerican University",
      str_detect(OG, "Universidad Carlos III de Madrid") ~ "Universidad Carlos III de Madrid",
      str_detect(OG, "Universidade Federal do Pará") ~ "UFPA",
      str_detect(OG, "UFPA") ~ "UFPA",
      str_detect(OG, "FURB") ~ "FURB",
      str_detect(OG, "Universidade Regional de Blumenau") ~ "FURB",
      str_detect(OG, "IESE") ~ "IESE",
      str_detect(OG, "Instituto de Estudos Sociais e Econômicos") ~ "IESE",
      str_detect(OG, "SENAC") ~ "SENAC",
      str_detect(OG, "Centro Universitário Moura Lacerda") ~ "Centro Universitário Moura Lacerda",
      str_detect(OG, "Federação das Indústrias do Estado de São Paulo") ~ "FIESP",
      str_detect(OG, "FIESP") ~ "FIESP",
      str_detect(OG, "Católica de Santa Catarina") ~ "PUC/SC",
      str_detect(OG, "Universidade Federal de São Paulo") ~ "UNIFESP",
      str_detect(OG, "PucMinas") ~ "PUC/MG",
      str_detect(OG, "Universidade Estadual de Maringá") ~ "UEM",
      str_detect(OG, "Universidade de Brasilia, Brasil") ~ "UnB",
      str_detect(OG, "Université Catholique de Louvain") ~ "Université Catholique de Louvain",
      str_detect(OG, "Universidade Federal de Brasilia") ~ "UnB",
      str_detect(OG, "Fundação Escola de Sociologia e Política de São Paulo") ~ "FESPSP",
      str_detect(OG, "FESPSP") ~ "FESPSP",
      str_detect(OG, "Universidade Federal de Integração latino-americana") ~ "UNILA",
      str_detect(OG, "Fundação Armando Álvares Penteado") ~ "FAAP",
      str_detect(OG, "FAAP") ~ "FAAP",
      str_detect(OG, "UNESP/Araraquara-SP") ~ "UNESP",
      str_detect(OG, "Serviço Social da Indústria") ~ "SESI",
      str_detect(OG, "SESI") ~ "SESI",
      str_detect(OG, "Universidade Regional de Blumenau") ~ "FURB",
      str_detect(OG, "University of Peloponese") ~ "University of Peloponese",
      str_detect(OG, "Universidade de Brasilia") ~ "Universidade de Brasilia",
      str_detect(OG, "Université Paris X") ~ "Université Paris X",
      str_detect(OG, "Universidad del Salvador ") ~ "USAL",
      str_detect(OG, "USAL") ~ "USAL",
      str_detect(OG, "Conicet") ~ "CONICET",
      str_detect(OG, "Centro Universitário do Distrito Federal") ~ "UNIDF",
      str_detect(OG, "UNIDF") ~ "UNIDF",
      str_detect(OG, "PUC - SP") ~ "PUC/SP",
      str_detect(OG, "PUC - São PAULO") ~ "PUC/SP",
      str_detect(OG, "Universidade do Rio de Janeiro") ~ "UFRJ",
      str_detect(OG, "London School of Economics") ~ "LSE",
      str_detect(OG, "Universidade Estadual de Londrina") ~ "UEL",
      str_detect(OG, "UEL") ~ "UEL",
      str_detect(OG, "Open Society Foundations") ~ "Open Society Foundations",
      str_detect(OG, "FECAP") ~ "FECAP",
      str_detect(OG, "Fundação Escola de Comércio Álvares Penteado") ~ "FECAP",
      str_detect(OG, "UNINORTE") ~ "UNINORTE",
      str_detect(OG, "Universidad del Norte") ~ "UNINORTE",
      str_detect(OG, "Universidade Federal de Mato Grosso do Sul") ~ "UFMS",
      str_detect(OG, "UFMS") ~ "UFMS",
      str_detect(OG, "Universidad Nacional de Costa Rica") ~ "UNA",
      str_detect(OG, "UNA") ~ "UNA",
      str_detect(OG, "Insper ") ~ "INSPER",
      str_detect(OG, "INSPER") ~ "INSPER",
      str_detect(OG, "Universidade Veiga de Almeida") ~ "UVA",
      str_detect(OG, "UVA") ~ "UVA",
      str_detect(OG, "Instituto Federal do Norte de Minas Gerais") ~ "IFNMG",
      str_detect(OG, "Santiago Dantas") ~ "PPGRI Santiago Dantas",
      str_detect(OG, "Universidad de la República") ~ "UdelaR",
      str_detect(OG, "UdelaR") ~ "UdelaR",
      str_detect(OG, "Universidade federal do Amapá") ~ "UNIFAP",
      str_detect(OG, "Centro Universitário Jorge Amado") ~ "UNIJORGE",
      str_detect(OG, "UNESP/Araraquara") ~ "UNESP",
      str_detect(OG, "Unb") ~ "UnB",
      str_detect(OG, "UNIFAI") ~ "UNIFAI",
      str_detect(OG, "Universidade Federal de Uberlândia") ~ "UFU",
      str_detect(OG, "Universidade do Porto") ~ "Universidade do Porto",
      str_detect(OG, "Faculdade de Filosofia e Ciências UNESP") ~ "UNESP",
      str_detect(OG, "Uppsala Universitet") ~ "Uppsala University",
      str_detect(OG, "UNESP - Araraquara") ~ "UNESP",
      str_detect(OG, "Carleton University") ~ "Carleton University",
      str_detect(OG, "CEIPIL") ~ "CEIPIL",
      str_detect(OG, "PPGCM") ~ "PPGCM",
      str_detect(OG, "ENSP/Fiocruz") ~ "FIOCRUZ",
      str_detect(OG, "São Paulo State University") ~ "UNESP",
      str_detect(OG, "Universidade da Força Aérea") ~ "UNIFA",
      str_detect(OG, "UNIFA") ~ "UNIFA",
      str_detect(OG, "Universidade Católica de Petrópolis") ~ "UCP",
      str_detect(OG, "UCP") ~ "UCP",
      str_detect(OG, "Universidade Federal do Estado do Rio de Janeiro") ~ "UNIRIO",
      str_detect(OG, "Pontifícia universidade católica do Rio de Janeiro") ~ "PUC/RIO",
      str_detect(OG, "UNIJUI") ~ "UNIJUI",
      str_detect(OG, "Universidade Regional do Noroeste do Estado do Rio Grande do Sul") ~ "UNIJUI",
      str_detect(OG, "UNIJUÍ") ~ "UNIJUI",
      str_detect(OG, "Instituto Federal de São Paulo") ~ "IFSP",
      str_detect(OG, "Instituto de Relações Internacionais/PUC-RIO") ~ "PUC/RIO",
      str_detect(OG, "CEIPIL-UNICEN-CIC") ~ "CEIPIL",
      str_detect(OG, "Universidad Sergio Arboleda") ~ "Universidad Sergio Arboleda",
      str_detect(OG, "Universidade Federal do Estado do Rio de Janeiro") ~ "UNIRIO",
      str_detect(OG, "Universidad Nacional de Quilmes") ~ "UNQ",
      str_detect(OG, "UNQ") ~ "UNQ",
      str_detect(OG, "Universidad Argentina de la Empresa") ~ "UADE",
      str_detect(OG, "UADE") ~ "UADE",
      str_detect(OG, "Embaixador do Ministério de Relações Exteriores") ~ "MRE",
      str_detect(OG, "Universidade do Estado de São Paulo") ~ "UNESP",
      str_detect(OG, "Universidade Católica Portuguesa") ~ "UCP",
      str_detect(OG, "Universidade Lusófona do Porto") ~ "ULP",
      str_detect(OG, "ULP") ~ "ULP",
      str_detect(OG, "Universidad de la República") ~ "UR",
      str_detect(OG, "Organização das Nações Unidas") ~ "ONU",
      str_detect(OG, "ONU") ~ "ONU",
      str_detect(OG, "Universidade de Passo Fundo ") ~ "UPF",
      str_detect(OG, "UPF") ~ "UPF",
      str_detect(OG, "Institut des Hautes Etudes de l’Amérique Latine") ~ "IHEAL",
      str_detect(OG, "IHEAL") ~ "IHEAL",
      str_detect(OG, "Instituto Português de Relações Internacionais/Universidade Nova") ~ "NOVA",
      str_detect(OG, "Centro de Investigación y Docencia Econômicas") ~ "CIDE",
      str_detect(OG, "University of Sussex") ~ "University of Sussex",
      str_detect(OG, "University of the Basque Country") ~ "University of the Basque Country",
      str_detect(OG, "Shanghai Jiao Tong University") ~ "Shanghai Jiao Tong University",
      str_detect(OG, "University of Shanghai") ~ "University of Shanghai",
      str_detect(OG, "Shanghai International Studies University") ~ "Shanghai International Studies University",
      str_detect(OG, "Universitat Autônoma de Barcelona") ~ "Universitat Autônoma de Barcelona",
      str_detect(OG, "Universidade de Minho") ~ "Universidade do Minho",
      str_detect(OG, "University College Dublin") ~ "University College Dublin",
      str_detect(OG, "Hankuk University") ~ "Hankuk University",
      str_detect(OG, "Mahidol University") ~ "Mahidol University",
      str_detect(OG, "Vietnam National University") ~ "Vietnam National University",
      str_detect(OG, "Tongji University") ~ "Tongji University",
      str_detect(OG, "Bielefeld University") ~ "Bielefeld University",
      str_detect(OG, "Universidad Complutense de Madrid") ~ "Universidad Complutense de Madrid",
      str_detect(OG, "University of Florence") ~ "University of Florence",
      str_detect(OG, "University of California San Diego") ~ "University of California San Diego",
      str_detect(OG, "Vietnam National University") ~ "Vietnam National University",
      str_detect(OG, "University of Birmingham") ~ "University of Birmingham",
      str_detect(OG, "Universidade Federal de Sao Paulo") ~ "UNIFESP",
      str_detect(OG, "University of Lisbon") ~ "Universidade de Lisboa",
      str_detect(OG, "University of Maryland") ~ "University of Maryland",
      str_detect(OG, "Consejo Nacional de Investigaciones Cientificas y Tecnicas") ~ "CONICET",
      str_detect(OG, "University of Tampere") ~ "University of Tampere",
      str_detect(OG, "Universidad del Rosario") ~ "Universidad del Rosario",
      str_detect(OG, "EAFIT") ~ "EAFIT",
      str_detect(OG, "Universidade Lusíada") ~ "Universidade Lusíada",
      str_detect(OG, "University of Witwatersrand") ~ "University of Witwatersrand",
      str_detect(OG, "Universidade Federal de Integração Latino-Americana") ~ "UNILA",
      str_detect(OG, "Universidade Federal de Paraíba") ~ "UFPB",
      str_detect(OG, "Faculdade Damas") ~ "Faculdade Damas",
      str_detect(OG, "Escola Superior de Guerra") ~ "ESG",
      str_detect(OG, "Ministério de Relações Exteriores") ~ "MRE",
      str_detect(OG, "Consejo Nacional de Investigaciones Científicas y Técnicas") ~ "CONICET",
      str_detect(OG, "Universidade do Porto") ~ "Universidade do Porto",
      str_detect(OG, "Universidad Arturo Prat") ~ "Universidad Arturo Prat",
      str_detect(OG, "Universidad del Rosario") ~ "Universidad del Rosario",
      str_detect(OG, "Florida International University") ~ "Florida International University",
      str_detect(OG, "Universidad San Francisco de Quito") ~ "Universidad San Francisco de Quito",
      str_detect(OG, "National Chung Hsing University") ~ "National Chung Hsing University",
      str_detect(OG, "Universidad de los Andes") ~ "Universidad de los Andes",
      str_detect(OG, "Oxford University") ~ "Oxford University",
      str_detect(OG, "Universidade Federal de Tocantins") ~ "UFT",
      str_detect(OG, "University of Lisbon") ~ "Universidade de Lisboa",
      str_detect(OG, "Ohio State University") ~ "Ohio State University",
      str_detect(OG, "University of Brasília International Relations Institute") ~ "UnB",
      str_detect(OG, "University of Montenegro") ~ "University of Montenegro",
      str_detect(OG, "University of Brasília") ~ "UnB",
      str_detect(OG, "Brazilian Ministry of External Relations") ~ "MRE",
      str_detect(OG, "University La Salle Rio de Janeiro") ~ "Unilasalle",
      str_detect(OG, "Australian National University") ~ "Australian National University",
      str_detect(OG, "University of Massachusetts") ~ "University of Massachusetts",
      str_detect(OG, "Instituto Universitário de Lisboa") ~ "Instituto Universitário de Lisboa",
      str_detect(OG, "Marinha do Brasil") ~ "Marinha do Brasil",
      str_detect(OG, "State University of Campinas") ~ "UNICAMP",
      str_detect(OG, "University of Leuven") ~ "University of Leuven",
      str_detect(OG, "State University of Paraíba's") ~ "UFBP",
      str_detect(OG, "State University of Paraíba") ~ "UFBP",
      str_detect(OG, "Universidade Federal de Alagoas") ~ "UFAL",
      str_detect(OG, "Universidade de Santiago do Chile") ~ "Universidade de Santiago do Chile",
      str_detect(OG, "Universidade Federal de Maringá") ~ "Universidade Federal de Maringá",
      str_detect(OG, "Tel Aviv University") ~ "Tel Aviv University",
      str_detect(OG, "Federal University of Santa Catarina") ~ "UFSC",
      str_detect(OG, "Johns Hopkins University") ~ "Johns Hopkins University",
      str_detect(OG, "Universidade Técnica de Lisboa") ~ "Universidade Técnica de Lisboa",
      str_detect(OG, "Universidad Alberto Hurtado") ~ "Universidad Alberto Hurtado",
      str_detect(OG, "Karadeniz Technical University") ~ "Karadeniz Technical University",
      str_detect(OG, "University of Beira Interior ") ~ "University of Beira Interior ",
      str_detect(OG, "Universidade Federal de São Carlos") ~ "UFSCar",
      str_detect(OG, "Maringá State University") ~ "UEM",
      str_detect(OG, "University of Firenze") ~ "University of Firenze",
      str_detect(OG, "Universtity of Brasília") ~ "UnB",
      str_detect(OG, "University of Rio de Janeiro") ~ "UERJ",
      str_detect(OG, "Brazil External Relations") ~ "MRE",
      str_detect(OG, "Conselho Nacional de Desenvolvimento Científico e Tecnol") ~ "CONICET",
      str_detect(OG, "Stockholm University") ~ "Stockholm University",
      str_detect(OG, "Ministério da Justiça") ~ "Ministério da Justiça",
      str_detect(OG, "Universidade Nacional Autônoma do México") ~ "UNAM",
      str_detect(OG, "State University of New York") ~ "State University of New York",
      str_detect(OG, "Agência Brasileira de Inteligência") ~ "ABIN",
      str_detect(OG, "Senador da República Federativa do Brasil") ~ "Senado Federal",
      str_detect(OG, "Universidade do Tocantins") ~ "UNT",
      str_detect(OG, "Universidades do Minho") ~ "Universidades do Minho",
      str_detect(OG, "Université du Quebec") ~ "Université du Quebec",
      str_detect(OG, "UENF") ~ "UENF",
      str_detect(OG, "Universidade Estadual Norte-Fluminense") ~ "UENF",
      str_detect(OG, "Università di Bologna") ~ "Università di Bologna",
      str_detect(OG, "Universidade do Vale do Itajaí") ~ "Univali",
      str_detect(OG, "Univali") ~ "Univali",
      OG == "Estado do Rio de Janeiro" ~ "UERJ",
      OG == "Universidade  Estadual da Paraíba" ~ "UEPB",
      str_detect(OG, "Fundação Alexandre de Gusmão do Itamaraty") ~ "FUNAG",
      str_detect(OG, "Instituto Universitário de Pesquisas do Rio de Janeiro") ~ "IUPERJ",
      str_detect(OG, "Fundação de Apoio Administrativo do Estado de São Paulo") ~ "FAPESP",
      str_detect(OG, "Instituto Brasileiro de Relações Internacionais") ~ "UnB",
      str_detect(OG, "Universidade Federal do Ceará") ~ "UFC",
      TRUE ~ OG
    )
  ) %>%
  group_by(TI, PDFURL) %>%
  mutate(OG = str_c(OG, collapse = ';')) %>%
  distinct() -> data_com_meridiano
